*------------------------------------------------------------------------------*
* Family history - Dinas, Fouka, Schläpfer - JoP
*------------------------------------------------------------------------------*

*------------------------------------------------------------------------------*
* Table D4-D5
*------------------------------------------------------------------------------*



*------------------------------------------------------------------------------*
* Greece
*------------------------------------------------------------------------------*

use greece, clear

local treatment
local sample if T==0

local controls female i.age i.edu i.occupation i.income i.nomos
estimates clear
foreach x in rev1821st amdisasterst oxist civilwarst dictatorshipst {
	reg `x' asiaminor `sample', cl(municipality)
	eststo m_`x'
	reg `x' asiaminor `controls' `sample', cl(municipality)
	eststo m_`x'_c
}
esttab m* using Table_D4.html, star(+ 0.1 * 0.05 ** 0.01 *** 0.001) replace ///
		cells(b(fmt(a2) star) se(fmt(a2) par)) stats(N r2)  ///
		keep(asiaminor) gaps  

		
*------------------------------------------------------------------------------*
* Germany
*------------------------------------------------------------------------------*

use germany, clear

local sample if control==1
local controls i.sex i.state i.age i.F4 i.F13
estimates clear
foreach x in wwi_st expellees_st reconstruction_st wall_st {
	reg `x' expellee `sample', cl(GKZ)
	eststo m_`x'
	reg `x' expellee `controls' `sample', cl(GKZ)
	eststo m_`x'_c
}
esttab m* using Table_D5.html, star(+ 0.1 * 0.05 ** 0.01 *** 0.001) replace ///
		cells(b(fmt(a2) star) se(fmt(a2) par)) stats(N r2)  ///
		keep(expellee) gaps 
